home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok29.lha / Disky / FileRequest.defO < prev    next >
Text File  |  1993-08-15  |  4KB  |  92 lines
  1. (* -------------------------------------------------------------------------
  2.   :Program.       FileRequest
  3.   :Author.        Kai Bolay
  4.   :Address.       Hoffmannstraße 168, 7250 Leonberg 1
  5.   :Phone.         07152/22135
  6.   :ShortCut.      [kai]
  7.   :Version.       1.02
  8.   :History.       v1.01 [kai] 28-Jul-89 little changes
  9.   :History.       v1.02 [kai] 24-Nov-89 added dirExt (Bene's Tip!)
  10.   :Date.          24-Nov-89
  11.   :Copyright.     INTERN
  12.   :Language.      Modula-2
  13.   :Translator.    M2Amiga 3.2d
  14.   :Imports.       IntuiStruct1.3 [bne]
  15.   :Contents.      DEFINITION
  16. ------------------------------------------------------------------------- *)
  17.  
  18. DEFINITION MODULE FileRequest;
  19.  
  20. FROM SYSTEM    IMPORT ADDRESS;
  21. FROM Exec      IMPORT UByte;
  22. FROM Graphics  IMPORT TextAttrPtr;
  23. FROM Intuition IMPORT ScreenPtr;
  24.  
  25. TYPE DiskyFlags = (suffixGad, watchSuffix, onlyFiles, displayInfo, noSort,
  26.                    german, fileExists, ownScreen, ownPosition, ownColors,
  27.                    ownFont, startPath, callFileTest, dirExt, df14, df15);
  28.      DiskyFlagSet = SET OF DiskyFlags;
  29.      
  30.      (* suffixGad     : Suffix kann geändert werden (watchSuffix setzen!)
  31.         watchSuffix   : Es wird das Suffix beachtet (auch ohne Gadget)
  32.         onlyFiles     : Kein Directory-Wechsel möglich
  33.         displayInfo   : Es werden '.info' Files angezeigt
  34.         noSort        : Das Directory wird nicht nach dem Alphabet sortiert
  35.         german        : Deutsche Beschriftung der Gadgets
  36.         fileExists    : DiskyOK nur wenn File existiert
  37.         ownScreen     : Disky nicht auf WB (DI.screen # NIL)
  38.         ownPosition   : x, y Position wird beachtet
  39.         ownColors     : Es werden die User-Farben benutzt
  40.         ownFont       : Es wird der User-Zeichensatz benutzt (Sollte 8x8)
  41.         startPath     : Der angegebene Pfad gilt als Ausgangspunkt
  42.                         (normal: dir / file / (suffix) )
  43.         callFileTest  : Die in DI.fileTestProc angegebene Prozedur wird
  44.                         aufgerufen, das Resultat bestimmt ob das File
  45.                         in die Liste aufgenommen wird
  46.         dirExt        : An Dirs wird " (dir)" andgehängt
  47.      *)
  48.      
  49.      DiskyResult = (DiskyOK, DiskyCancel, ErrNoMem, ErrNoReq);
  50.  
  51.      (* DiskyOK     : OK-Gadget oder Doppelklick auf File-Gadget
  52.         DiskyCancel : Cancel-Gadget
  53.         ErrNoMem    : Nicht genügend freier Speicher
  54.         ErrNoReq    : Kann Requester nicht öffnen
  55.      *)
  56.      
  57.      DiskyInfo = RECORD
  58.                     title         : ADDRESS;
  59.                     (* ADR des Window-Titels *)
  60.                     dir           : ARRAY [0..150] OF CHAR;
  61.                     (* Directory *)
  62.                     file          : ARRAY [0..30] OF CHAR;
  63.                     (* File *)
  64.                     suffix        : ARRAY [0..5] OF CHAR;
  65.                     (* Suffix *)
  66.                     path          : ARRAY [0..200] OF CHAR;
  67.                     (* Pfad *)
  68.                     flags         : DiskyFlagSet;
  69.                     (* siehe oben *)
  70.                     screen        : ScreenPtr;
  71.                     (* Zeiger auf Screen für das Disky-Window oder NIL *)
  72.                     x, y          : INTEGER;
  73.                     (* Position des Disky-Windows *)
  74.                     gadgetPen     : UByte;
  75.                     (* Zeichenfarbe für Gadgets *)
  76.                     filePen       : UByte;
  77.                     (* Zeichenfarbe für Files *)
  78.                     dirPen        : UByte;
  79.                     (* Zeichenfarbe für Dirs *)
  80.                     backFillPen   : UByte;
  81.                     (* Hintergrundfarbe (nicht implementiert) *)
  82.                     font          : TextAttrPtr;
  83.                     (* Zeichensatz *)
  84.                     fileTestProc  : PROCEDURE (VAR ARRAY OF CHAR) : BOOLEAN;
  85.                     (* Zusatzprozedur zum Filetest *)
  86.                  END; (* RECORD *)
  87.  
  88.  
  89. PROCEDURE Disky (VAR DI : DiskyInfo) : DiskyResult;
  90.  
  91. END FileRequest.
  92.